home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / andere sprachen / oberonv4 / killoberon < prev    next >
Text File  |  1994-07-12  |  234b  |  10 lines
  1. status >env:KillOberon1
  2. search env:KillOberon1 Oberon nonum >env:KillOberon2
  3. if not "$KillOberon2" eq ""
  4.  echo "$KillOberon2" first=9 len=2 >env:KillOberon1
  5.  break $KillOberon1 all
  6. endif
  7. delete env:KillOberon1
  8. delete env:KillOberon2
  9.  
  10.